home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aad.d64 / proc.convert1 < prev    next >
Text File  |  2007-02-28  |  494b  |  18 lines
  1. 9000 //
  2. 9010 PROC CONVERT(NUMBER,REF BASE#,REF RES$) CLOSED
  3. 9020   IF NUMBER<>0 THEN
  4. 9030     POWER:=INT(LOG(NUMBER)/LOG(BASE#))
  5. 9040     FOR COUNT:=POWER TO 0 STEP -1 DO
  6. 9050       DIGIT:=INT(NUMBER/(BASE#^COUNT))
  7. 9060       NUMBER:=NUMBER-DIGIT*BASE#^COUNT
  8. 9070       IF DIGIT<10 THEN
  9. 9080         RES$:+CHR$(DIGIT+ORD("0"))
  10. 9090       ELSE 
  11. 9100         RES$:+CHR$(DIGIT-10+ORD("┴"))
  12. 9110       ENDIF 
  13. 9120     ENDFOR COUNT
  14. 9130   ELSE 
  15. 9140     RES$:="0"
  16. 9150   ENDIF 
  17. 9160 ENDPROC CONVERT
  18.